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LIBSSYS_FAO 16-Sep-1984 00:51:0 AX-11 Bliss-32 V4.0-74 Page 1 
12286871382 99:38:07 LIBRTL.SRCILIBFAO.B32; (1) 
: 1 p 1 MODULE LIBSSYS_FAO ( : 
3 ‘ IDENT = '1-009" ! File: LIBFAO.B32 EDIT: RKR1009 | ; 
[oe9 5 ys ; 
: 8 : ! BEGIN ; 
: 3 43 } leuneenacecaecennenseenacerenecerecenreerecereerteeneeenenenneennneneetnenets : 
; \e * : 
> 19 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 3 
; FW O11 1 !* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 3 
: i 0018 ! it ALL RIGHTS RESERVED. : : 
; (14 14 1 i® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * ; 
; 0015 1 !* ONLY IN ACCORDANCE WITH E my F SUCH LICENSE AND WITH THE * : 
; 1 Big 1 !@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
3; 17 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 3 
; 318 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; i 4th : ;* TRANSFERRED. * : 
3 : * 3 
; 1 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
; ¢ 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
: ? 83 t : . CORPORATION. : : 
Se | 0035 1 is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS + F 
; 6 00 § 1 !@ SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
; 7 090 1 Ie * ; 
; 8 0028 1 !* : : 
5 , 594 : ‘Paella hana tala aia alata ‘ 
; 1 0031 1 ; 
; ; 00 § 1 44 3 
; 0035 1! FACILITY: General Library Support ; 
: 4 0034 1! 3 
; 5 3 5 1 ! ABSTRACT: ; 
; 6 0 $ 1! ; 
: ? 037 1! This routine calls SFAOL for the caller, returning the ; 
: 3 038 1! resulting string using the semantics of the caller's string. : 
; 9 39 1! The Length of the resultant string is Limited to 256 bytes max and ; 
: re Bpee : ; truncation may occur. : 
; $¢ ri} } ENVIRONMENT: VAX=-11 User Mode ; 
i 44 O44 1 | AUTHOR: R. Reichert, CREATION DATE: 20-SEPT-1979 ; 
i 46 046 1 | MODIFIED BY: ; 
; 48 8 | i 1-001 = Original. RKR 20-SEPT-1979 ; 
; #349 Bne 1: i= § = Change name to LIBSSYS_FAO. RKR 15-OCT-79 3 
; 050 1! 1- - snares Logis for status returned. Improve comments. : 
; 2) 51 1! RKR 20-0CT-79 : 
3 § 26 1 ! 1-004 = Pl can be a value parameter with value 0, so the | : 
; 055 1! NULLPARAMETER builtin doesn't work on it. _JBS 28-OCT-1979 3 
; 4 4 1 ! 1-005 - Improve Geacr tation of routine. RKR 1-NOV-7 : 
3 5 § 1! fe 88 = Change STR$ codes to LIBS codes. RKR ce-Jn- 1990 3 
3 § $ 1! I- - Enhance to recognize additional classes of string descriptors : 
; 3 0057 1! on output by always getting data into internal buffer and 3 
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; 
i 

NONE 
EQUATED SYMBOLS: 


LITERAL 
LOCAL_BUF _SIZE = 256; 


74 73 ' 
75 74 ' SWITCHES: 
f RY 
78 8 SWITCHES ADDRESSING _MODE 
4 4 (EXTERNAL = GENERAL, NONEXTERNAL = WORD_RELATIVE); 
+ 0 ! 
§ 1 } LINKAGES: 
bs i REQUIRE "RTLIN:STRLNK'; ! Linkage to LIBSANALYZE_SDESC_R2 
i TABLE OF CONTENTS: 
87 6 1 i 
88 71 
89 ye FORWARD ROUTINE 
+ u LIBSSYS_FAO; ! Formated ASCII output 
9 75 ! 
9 zg ' INCLUDE FILES: 
94 7 ! 
95 78 
4 REQUIRE ‘RTLIN:RTLPSECT'; ! Macros for defining psects 
Ne LIBRARY ‘RTLSTARLE'; ! System symbols and macros 
iS 
78 
79 
80 
+ 
33 
84 
85 
86 
87 
88 
89 


PSECTS: 
ECLARE_PSECTS (LIB); ! Declare psects for LIBS facility 
OWN STORAGE : 
NONE 
EXTERNAL REFERENCES: 
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EXTERNAL ROUTINE 

LIBSANALYZE_SDESC_R2 : LIBSANALYZE_SDESC_JSB_LINK, ! Extract length 
' and address of 
' Ist data byte 
' from descriptor 
LIBSSCOPY_R_DX6 : STRING_JSB ; ! Copy string 
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° GLOBAL ROUTINE LIBSSYS_FAO ( ! Formated ASCII output 
4 CTRSTR, ! addr of string desc. for ASCII control string 
OUTLEN, ! addr of word in which to store output string 
! Length (Optional) 
5 SUTBUF . ! addr of qutgut buffer string descriptor 
o ! the first of potentially 17 (max) additional 
! parameters. 
)ez 


+ 


+ 
FUNCTIONAL DESCRIPTION: 

This royttne alls SFAOL for the caller, returning the 
resulting string using the semantics of the eather.» string. Since 
output is buffered to an internal buffer which is g 6 
the Length of the resultant string is Limited to 2 
truncation may occur. 

See SFAO description 
FORMAL PARAMETERS: 

CTRSTR.rt.dx addr of string desc. for ASCII control string 


OUTLEN.ww.r addr of word in which to store output string 
Length (Optional parameter) 


bytes long, 
6 bytes max and 


OUTBUF .wt.dx addr of output buffer string descriptor 


Pl.xx.x the first of potent ietty 17 (max) 
additional parameters. (Optional parameter) 


For additional description of parameters, 
see SFAO documentation. 


IMPLICIT INPUTS: 
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NONE 
IMPLICIT OUTPUTS: 
rf NONE 
4 COMPLETION CODES: 
$s$ L Procedure successfully completed 
From LIBSSCOPY_R_DX6 
LIB$_STRTRO Success. but source string truncated 
LIBS_INSVIRMEM Insuff Cteng virtual memory 
LIBS_INVSTRDES Invalid string descriptor 
LIBS$_INVARG Invalid argument ( usually an unrecognized 
class of descriptor) 
From on 


me ee ek a tk a a et = nc“ 2 = 2 48 ts = = 2 1 2 2 Yt ts oS 


ee a ee dd dd 


BUFFEROVF Suc essfully completed, but formatted output 
string overflowed the output buffer and has 
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3s 187 63 1! been truncated. 

3 ¥ 464 1! SS$_BADPARAM An invalid directive was specified in the FAO 
; : 5 : control string. 

i 191 ; | } SIDE EFFECTS: 

; 198 6 1 i NONE 

: 196 4 1! 

; 12? of : !eo 

; 199 cr BEGIN 

; 199 475 ILTIN 

: 200 ore ACTUALCOUNT 

; 201 47 NULLPARAME TER 

; 0¢ 478 ACTUAL PARAMETER: 

: 204 480 LOCAL 

; 205 $3) FopY STATUS, etetus from eyiter cer ine 

3 08 4 ; STR_STATUS, us from $FAG 

3; 2 048 LOCAL_BUFF : VECTOR rLoca “eur SIZE, BY ve), ' local buffer 
: e bcs BUFFER_DESC : BLOCK BYT 'desc for local buffer 
: 210 48 

3: 211 bea? P oureur : REF BLOCK C, BYTE) 

; ig 0488 OUTLEN : REF VECTOR C, WORDS; 

he eB, 

; 215 aes i Construct a static descriptor to receive the data from the system 
: 18 238 i service call 

: 218 vey purrer DESC CDSC$W_LENGTH] = LOCAL_BUF SIZE; 

; 219 495 BUF FER-DESC 437 eat = DSCSK_BTYPE_T 

; 0 rey] BUFFER “DESC DSC$B_CLASS) = DSC$K- CLASS $3 

3 1 49 BUFFER-DESC CDSCSA_POINTER) = LOCAL_BUFF; 

. cae 

; & 500 i Call SFAOL using the appropriate combination of caller's 

3 5 33) t parameters, default parameters and local variables 

; 5 P 05 STR_STATUS = SFAOL (CTRSTR = ACTUALPARAMETER (1), 

; 8 P 0504 OUTLEN = BUFFER_DESC, 

3 9 P 0505 UF = BUFFER DESC 

3 P 2 PRL ST = (IF CACTUAL COUNT () LSSU 4) 

5 1 a4 - THEN 0 

; ; 509 i Copy inzernal buffer to caller's buffer, letting LIBSSCOPY_R_DX6 
3 : 319 i worry about its semantics. 

; 316 COPY_STATUS = LIBSSCOPY_R_DX6 ( x ht DESC PRSEsy LEMeTH 

; 51 SBUFFERTDESC COSCSA-POINTERS, 

3 3 514 -OUTBUF™) ; 

: 9 32 

; 240 1 '¢ 

3; 241 51 i af cotter supplied optional length parameter, update it. 

3 ri} 318 ! To qo this eccuretety we need to inspect the res uiting dence igter 
> 2h 51 i as it appears after the copy. Get LIBSANALYZE _SDESC_R2 to do 
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> 246 need to check LIGSANALYZE SDESC_R2 status. If OUTBUF descr 

; $2 | as bad, LIBSSCOPY_R_DX6 would havé told us about it. 

; éf ; If (not NULLPARAMETER(2)) 

; ‘3 5 “BEGIN 

: 251 i 5 OUTBUF _LEN No. of bytes delivered to caller 

; ¢ 8 OUTBUF ~ADDR; i Address of Ist data byte of callers 

: 254 0 IF ,OUTBUF coscse_ CLASS) GTRU DSC$K_CLASS_D 

: 56 2 1 THEN e generalized léngth éxtraction 

; ? 5 5 ? CIBSANALYZE _SDESC_R2 ( .OUTBUF ; OUTBUF_LEN, OUTBUF_ADDR ); 

; 35 peas 

: rs Be $ ELSE ! Fetch Length directly 

; 6¢ 08 8 OUTBUF_LEN = .OUTBUF CDSC$W_LENGTH) ; 

: 264 0540 OUTLEN CO) = MIN (.BUFFER_DESC CDSC$W_LENGTH], .OUTBUF_LEN) ; 

3 269 Bee) END; 

; 5 ass “at this point we have 2 statuses that we could return to caller. 

; 268 544 | _Detoratne which one is the ‘most meaningful". 

: $55 bce . 

: 271 pac? i If original SFAOL call failed, tell him about that 

: 318 Erk ; 4 else give him the copy status. 

: 274 0550 iF NOT .STR_STATUS THEN RETURN (.STR STATUS) 

3 ar6 eet § ELSE RETURN (.COPY_STATUS) ; 

: 277 §a3§ 1 END; ! end of LIBSSYS_FAO 
TITLE LIBSSYS_FAO 
-IDENT \1-009 
EXTRN tIBSscoPy-R -SDESC_R2 
-EXTRN LIBSSCOPY_R_DX6 
eEXTRN SYSSFAOL 


-PSECT _LIBSCODE.NOWRT, SHR, PIC,2 


O1FC 00000 -ENTRY LIBSSYS_FAO, Save R2,R3,R4,R5,R6,R7,R8 
5E FEFC CE 9E 00¢ MOVAB = GO(SP SP 
010E0100 8F DD 0000 PUSHL #1769497 
04 AE 08 AE ‘ 000 MOV LOCAL_BUFF, BUFFER_DESC+4 
04 ¢ 1 CMPBs«C AP) "#4 
4 16 1 BGEQU§ 1$ 
E p 1 CLRL =(SP) 
06 11 00019 BRB 2$ 
50 10 AC 9€ 0001B 1$ OVAB Pi, RO 
5 pd 1F PUSHL RO 
4 AE OF 4 2$ PUSHAB BUFFER_DESC 
8 AE OF 4 PUSHAB BUFFER DESC 
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04 AC dD 7 PUSHL  4(AP) ; 
000000006 gr f A CALLS #4, SYSSFAOL 3 
0D 1 MOVL RO, STR_STATUS : 
0c AC D 4 MOVL oufeur . R7 : 0514 
¢ 57 D 8 MOVL R7, R2 3; 0512 
04 AE B MOVL  BUFFER_DESC+4, R1 : 
0 F MOVZWL BUFFER DESC, RO : 
000000006 rt JS8 jOsscory R_DX6 3 
3 g 4 MOVL RO, COPY_STATUS ; 
0 6¢ 1 00048 CMPB sé AP), «#2 + 0523 
1F 4 BLSSU 3 
08 At b 9 TSTL (AP) : 
2 BEQL 3 
02 03 A? 91 0005 CMPB (R7), #2 ; 0530 
98 8 BR 38 BLEQU ; 
50 D B MOVL R7, RO 3 0533 
000000006 69 16 QO0SE JSB8 LIBSANALYZE_SDESC_R2 3 
11 00064 BRB 4 3; 0530 
51 67 HS 493 3$ MOVZWL (R7), OUTBUF_LEN ; 0538 
50 : C 00069 4$ MOVZ2WL BUFFER DESC, ~RO + 0540 
51 D1 0006C CMPL RO, OUTBUF_LEN : 
9 15 Boer BLEQ 3 
50 1 00 00071 MOVL OUTBUF_LEN, RO 3 
08 BC 50 BO 00074 5$: MOVW RO, aO0TL : 
04 58 £8 00078 6$: BLBS § STR_STATUS, 7$ : 0550 
50 58 DO 00078 MOVL STR-STATUS, RO : 0551 
04 OO07E RET 3 
50 53 DO OOO7F 7$: MOVL COPY_STATUS, RO 3 
04 00082 RET 3; 0553 
; Routine Size: 131 bytes, Routine Base: _LIBSCODE + 0000 
; 278 0554 1 
3; 279 0555 1 END ! end of module LIB$SYS_FAO 
; 280 0556 1 
; 281 0557 O ELUDOM 
; PSECT SUMMARY 
3 Name Bytes Attributes | 
3  LIBSCODE 131 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
coccecee Symbols -------- Pages Processing | 
Total Loaded Percent Mapped Time | 
| 
| 
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> ~$255$DUA28:CSYSLIBISTARLET.L32;1 9776 10 0 581 00:00.8 
3 COMMAND QUALIFIERS 
H BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /NOTRACE/LIS=LIS$:LIBFAO/OBJ=0BJ$:LIBFAO MSRC$:LIBFAO/UPDATE=(ENH$:LIBFAO) 
Size: 131 oge + 0 data bytes 
Run Time: 8 04.4 
Elapsed Time: 217.3 
Lines/CPU Min: 527 


Lexemes/CPU-Min: 31608 
Memory Used: 72 pages 
Compilation Complete 
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